home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Foxpro 2.6 {Windows} / PRTSETUP.PR_ / PRTSETUP.bin
Text File  |  1994-03-10  |  45KB  |  1,311 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 02/09/94            PRTSETUP.SPR               22:21:57 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Author's Name                                           ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1994 Company Name                         ║
  10. *       ║ Address                                                 ║
  11. *       ║ City,     Zip                                           ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENSCRN.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18. DO CASE
  19. CASE _DOS OR _UNIX      && no UNIX records in screen
  20.  
  21.     
  22.     #REGION 0
  23.     REGIONAL m.currarea, m.talkstat, m.compstat
  24.     
  25.     IF SET("TALK") = "ON"
  26.         SET TALK OFF
  27.         m.talkstat = "ON"
  28.     ELSE
  29.         m.talkstat = "OFF"
  30.     ENDIF
  31.     m.compstat = SET("COMPATIBLE")
  32.     SET COMPATIBLE FOXPLUS
  33.     
  34.     *       ╓─────────────────────────────────────────────────────────╖
  35.     *       ║                                                         ║
  36.     *       ║                MS-DOS Window definitions                ║
  37.     *       ║                                                         ║
  38.     *       ╙─────────────────────────────────────────────────────────╜
  39.     *
  40.     
  41.     IF NOT WEXIST("_qne1bxrgo")
  42.         DEFINE WINDOW _qne1bxrgo ;
  43.             FROM INT((SROW()-19)/2),INT((SCOL()-57)/2) ;
  44.             TO INT((SROW()-19)/2)+18,INT((SCOL()-57)/2)+56 ;
  45.             TITLE "Printing Destination" ;
  46.             FLOAT ;
  47.             NOCLOSE ;
  48.             SHADOW ;
  49.             NOMINIMIZE ;
  50.             DOUBLE ;
  51.             COLOR SCHEME 5
  52.     ENDIF
  53.     
  54.     
  55.     *       ╓─────────────────────────────────────────────────────────╖
  56.     *       ║                                                         ║
  57.     *       ║         PRTSETUP/MS-DOS Setup Code - SECTION 2          ║
  58.     *       ║                                                         ║
  59.     *       ╙─────────────────────────────────────────────────────────╜
  60.     *
  61.     
  62.     #REGION 1
  63.     
  64.     skipvar = .T.
  65.     pfilname = SPACE(67)
  66.     
  67.     pdest = SET('PRINTER',1)
  68.     IF ":" $ pdest
  69.        pdest = LEFT(pdest,AT(':',pdest)-1)
  70.     ENDIF
  71.     IF !INLIST(pdest,'PRN','LPT1','LPT2','LPT3','COM1','COM2','COM3')
  72.        pfilname = PADR(pdest,67)
  73.        pdest = 'File'
  74.     ENDIF
  75.     origdest = pdest
  76.     prt_infile =pfilname
  77.     
  78.     IF SET('PRINT') = 'ON'
  79.        prtstat = 1
  80.     ELSE
  81.        prtstat = 2
  82.     ENDIF
  83.     origprtstat = prtstat
  84.     
  85.     pdrivstup = IIF(LEN(_PDRIVER)=0,0,1)
  86.     
  87.     
  88.     *       ╓─────────────────────────────────────────────────────────╖
  89.     *       ║                                                         ║
  90.     *       ║              PRTSETUP/MS-DOS Screen Layout              ║
  91.     *       ║                                                         ║
  92.     *       ╙─────────────────────────────────────────────────────────╜
  93.     *
  94.     
  95.     #REGION 1
  96.     IF WVISIBLE("_qne1bxrgo")
  97.         ACTIVATE WINDOW _qne1bxrgo SAME
  98.     ELSE
  99.         ACTIVATE WINDOW _qne1bxrgo NOSHOW
  100.     ENDIF
  101.     @ 1,2 TO 14,40
  102.     @ 3,6 SAY "Print to:" ;
  103.         SIZE 1,9, 0
  104.     @ 1,6 SAY "Printer Setup:" ;
  105.         SIZE 1,14, 0
  106.     @ 2,17 GET pdest ;
  107.         PICTURE "@^ File;PRN;LPT1;LPT2;LPT3;COM1;COM2;COM3" ;
  108.         SIZE 3,16 ;
  109.         DEFAULT "LPT1" ;
  110.         VALID _qne1bxscy() ;
  111.         COLOR SCHEME 5, 6
  112.     @ 5,5 GET flist ;
  113.         PICTURE "@*HN \<File..." ;
  114.         SIZE 1,11,1 ;
  115.         DEFAULT 1 ;
  116.         VALID _qne1bxsgg()
  117.     @ 7,4 GET pfilname ;
  118.         SIZE 1,35 ;
  119.         DEFAULT " " ;
  120.         PICTURE "@3S67" ;
  121.         VALID _qne1bxsoe()
  122.     @ 10,4 GET prtstat ;
  123.         PICTURE "@*RVN Print On;Print Off" ;
  124.         SIZE 1,13,0 ;
  125.         DEFAULT 2
  126.     @ 10,36 GET _LMARGIN ;
  127.         SIZE 1,2 ;
  128.         DEFAULT " " ;
  129.         PICTURE "@3 999" ;
  130.         VALID _qne1bxstp()
  131.     @ 11,36 GET _RMARGIN ;
  132.         SIZE 1,2 ;
  133.         DEFAULT " " ;
  134.         PICTURE "@3 999" ;
  135.         VALID _qne1bxsxh()
  136.     @ 6,43 GET OKbut ;
  137.         PICTURE "@*HT \!OK" ;
  138.         SIZE 1,10,6 ;
  139.         DEFAULT 1
  140.     @ 8,43 GET CancBut ;
  141.         PICTURE "@*HT \?Cancel" ;
  142.         SIZE 1,10,1 ;
  143.         DEFAULT 1
  144.     @ 14,4 GET pdrivstup ;
  145.         PICTURE "@*C Printer \<Driver Setup..." ;
  146.         SIZE 1,27 ;
  147.         DEFAULT 0 ;
  148.         VALID _qne1bxt2a() ;
  149.         DISABLE
  150.     @ 10,22 SAY "Left Margin:" ;
  151.         SIZE 1,12, 0
  152.     @ 11,22 SAY "Right Margin:" ;
  153.         SIZE 1,13, 0
  154.     
  155.     IF NOT WVISIBLE("_qne1bxrgo")
  156.         ACTIVATE WINDOW _qne1bxrgo
  157.     ENDIF
  158.     
  159.     
  160.     *       ╓─────────────────────────────────────────────────────────╖
  161.     *       ║                                                         ║
  162.     *       ║    MS-DOSREAD contains clauses from SCREEN prtsetup     ║
  163.     *       ║                                                         ║
  164.     *       ╙─────────────────────────────────────────────────────────╜
  165.     *
  166.     
  167.     READ CYCLE ;
  168.         DEACTIVATE _qne1bxt8z() ;
  169.         SHOW _qne1bxt90() ;
  170.         MODAL
  171.     
  172.     RELEASE WINDOW _qne1bxrgo
  173.     
  174.     #REGION 0
  175.     IF m.talkstat = "ON"
  176.         SET TALK ON
  177.     ENDIF
  178.     IF m.compstat = "ON"
  179.         SET COMPATIBLE ON
  180.     ENDIF
  181.     
  182.     
  183.     *       ╓─────────────────────────────────────────────────────────╖
  184.     *       ║                                                         ║
  185.     *       ║              PRTSETUP/MS-DOS Cleanup Code               ║
  186.     *       ║                                                         ║
  187.     *       ╙─────────────────────────────────────────────────────────╜
  188.     *
  189.     
  190.     #REGION 1
  191.     DO CASE
  192.     CASE okbut = 1
  193.        SET PRINTER TO
  194.     
  195.        IF prtstat = 1
  196.           SET PRINT ON
  197.        ELSE
  198.           SET PRINT OFF
  199.        ENDIF
  200.     
  201.        pdest = ALLTRIM(UPPER(pdest))
  202.        DO CASE
  203.        CASE pdest = 'FILE'
  204.           IF !EMPTY(pfilname)
  205.              SET PRINTER TO (pfilname)
  206.           ELSE
  207.              SET PRINTER TO
  208.           ENDIF
  209.        OTHERWISE
  210.           pfilname = ''
  211.           SET PRINTER TO &pdest
  212.        ENDCASE
  213.     CASE cancbut = 1
  214.        IF origprtstat = 1
  215.           SET PRINT ON
  216.        ELSE
  217.           SET PRINT OFF
  218.        ENDIF
  219.        pdest = origdest
  220.        pfilname = prt_infile
  221.     ENDCASE
  222.     skipvar = .F.
  223.     
  224.  
  225. CASE _MAC
  226.  
  227.     
  228.     #REGION 0
  229.     REGIONAL m.currarea, m.talkstat, m.compstat
  230.     
  231.     IF SET("TALK") = "ON"
  232.         SET TALK OFF
  233.         m.talkstat = "ON"
  234.     ELSE
  235.         m.talkstat = "OFF"
  236.     ENDIF
  237.     m.compstat = SET("COMPATIBLE")
  238.     SET COMPATIBLE FOXPLUS
  239.     
  240.     m.rborder = SET("READBORDER")
  241.     SET READBORDER OFF
  242.     
  243.     *       ╓─────────────────────────────────────────────────────────╖
  244.     *       ║                                                         ║
  245.     *       ║              Macintosh Window definitions               ║
  246.     *       ║                                                         ║
  247.     *       ╙─────────────────────────────────────────────────────────╜
  248.     *
  249.     
  250.     IF NOT WEXIST("_qne1bxu40")
  251.         DEFINE WINDOW _qne1bxu40 ;
  252.             AT  0.000, 0.000  ;
  253.             SIZE 17.000,57.000 ;
  254.             TITLE "Printing Destination" ;
  255.             FONT "Geneva", 10 ;
  256.             FLOAT ;
  257.             NOCLOSE ;
  258.             SHADOW ;
  259.             DOUBLE
  260.         MOVE WINDOW _qne1bxu40 CENTER
  261.     ENDIF
  262.     
  263.     
  264.     *       ╓─────────────────────────────────────────────────────────╖
  265.     *       ║                                                         ║
  266.     *       ║        PRTSETUP/Macintosh Setup Code - SECTION 2        ║
  267.     *       ║                                                         ║
  268.     *       ╙─────────────────────────────────────────────────────────╜
  269.     *
  270.     
  271.     #REGION 1
  272.     
  273.     skipvar = .T.
  274.     pfilname = SPACE(67)
  275.     
  276.     pdest = SET('PRINTER',1)
  277.     IF ":" $ pdest
  278.        pdest = LEFT(pdest,AT(':',pdest)-1)
  279.     ENDIF
  280.     IF !INLIST(pdest,'PRN','LPT1','LPT2','LPT3','COM1','COM2','COM3')
  281.        pfilname = PADR(pdest,67)
  282.        pdest = 'File'
  283.     ENDIF
  284.     origdest = pdest
  285.     prt_infile =pfilname
  286.     
  287.     IF SET('PRINT') = 'ON'
  288.        prtstat = 1
  289.     ELSE
  290.        prtstat = 2
  291.     ENDIF
  292.     origprtstat = prtstat
  293.     
  294.     pdrivstup = IIF(LEN(_PDRIVER)=0,0,1)
  295.     
  296.     
  297.     *       ╓─────────────────────────────────────────────────────────╖
  298.     *       ║                                                         ║
  299.     *       ║            PRTSETUP/Macintosh Screen Layout             ║
  300.     *       ║                                                         ║
  301.     *       ╙─────────────────────────────────────────────────────────╜
  302.     *
  303.     
  304.     #REGION 1
  305.     IF WVISIBLE("_qne1bxu40")
  306.         ACTIVATE WINDOW _qne1bxu40 SAME
  307.     ELSE
  308.         ACTIVATE WINDOW _qne1bxu40 NOSHOW
  309.     ENDIF
  310.     @ 2.769,2.500 TO 16.461,40.667 ;
  311.         PEN 1, 8
  312.     @ 3.538,9.000 SAY "Print to:"  ;
  313.         FONT "Geneva", 10 ;
  314.         STYLE "B"
  315.     @ 1.231,3.000 SAY "Printer Setup:"  ;
  316.         FONT "Geneva", 10 ;
  317.         STYLE "B"
  318.     @ 3.231,18.000 GET pdest ;
  319.         PICTURE "@^3 File;PRN;LPT1;LPT2;LPT3;COM1;COM2;COM3" ;
  320.         SIZE 1.462,19.833 ;
  321.         DEFAULT "LPT1" ;
  322.         FONT "Geneva", 10 ;
  323.         VALID _qne1bxuni()
  324.     @ 5.923,4.000 GET flist ;
  325.         PICTURE "@*HN3 \<File..." ;
  326.         SIZE 1.538,11.000,1.000 ;
  327.         DEFAULT 1 ;
  328.         FONT "Geneva", 10 ;
  329.         STYLE "B" ;
  330.         VALID _qne1bxut4()
  331.     @ 8.231,4.833 GET pfilname ;
  332.         SIZE 0.923,34.667 ;
  333.         DEFAULT " " ;
  334.         FONT "Geneva", 10 ;
  335.         PICTURE "@3S67" ;
  336.         VALID _qne1bxuy4()
  337.     @ 10.846,4.000 GET prtstat ;
  338.         PICTURE "@*RVN3 Print On;Print Off" ;
  339.         SIZE 1.308,11.143,0.000 ;
  340.         DEFAULT 2 ;
  341.         FONT "Geneva", 10 ;
  342.         STYLE "BT"
  343.     @ 11.077,36.333 GET _LMARGIN ;
  344.         SIZE 0.923,2.667 ;
  345.         DEFAULT " " ;
  346.         FONT "Geneva", 10 ;
  347.         PICTURE "@3 999" ;
  348.         VALID _qne1bxv59()
  349.     @ 12.538,36.333 GET _RMARGIN ;
  350.         SIZE 0.923,2.667 ;
  351.         DEFAULT " " ;
  352.         FONT "Geneva", 10 ;
  353.         PICTURE "@3 999" ;
  354.         VALID _qne1bxv7e()
  355.     @ 2.769,43.500 GET OKbut ;
  356.         PICTURE "@*HT3 \!OK" ;
  357.         SIZE 1.538,10.000,6.000 ;
  358.         DEFAULT 1 ;
  359.         FONT "Geneva", 10 ;
  360.         STYLE "B"
  361.     @ 5.538,43.500 GET CancBut ;
  362.         PICTURE "@*HT3 \?Cancel" ;
  363.         SIZE 1.538,10.000,1.000 ;
  364.         DEFAULT 1 ;
  365.         FONT "Geneva", 10 ;
  366.         STYLE "B"
  367.     @ 14.692,4.000 GET pdrivstup ;
  368.         PICTURE "@*C3 Printer \<Driver Setup..." ;
  369.         SIZE 1.308,24.000 ;
  370.         DEFAULT 0 ;
  371.         FONT "Geneva", 10 ;
  372.         STYLE "BT" ;
  373.         VALID _qne1bxveb() ;
  374.         DISABLE
  375.     @ 11.000,22.000 SAY "Left Margin:"  ;
  376.         FONT "Geneva", 10 ;
  377.         STYLE "B"
  378.     @ 12.462,22.000 SAY "Right Margin:"  ;
  379.         FONT "Geneva", 10 ;
  380.         STYLE "B"
  381.     
  382.     IF NOT WVISIBLE("_qne1bxu40")
  383.         ACTIVATE WINDOW _qne1bxu40
  384.     ENDIF
  385.     
  386.     
  387.     *       ╓─────────────────────────────────────────────────────────╖
  388.     *       ║                                                         ║
  389.     *       ║   MacintoshREAD contains clauses from SCREEN prtsetup   ║
  390.     *       ║                                                         ║
  391.     *       ╙─────────────────────────────────────────────────────────╜
  392.     *
  393.     
  394.     READ CYCLE ;
  395.         DEACTIVATE _qne1bxvm1() ;
  396.         SHOW _qne1bxvm5() ;
  397.         MODAL
  398.     
  399.     RELEASE WINDOW _qne1bxu40
  400.     
  401.     #REGION 0
  402.     
  403.     SET READBORDER &rborder
  404.     
  405.     IF m.talkstat = "ON"
  406.         SET TALK ON
  407.     ENDIF
  408.     IF m.compstat = "ON"
  409.         SET COMPATIBLE ON
  410.     ENDIF
  411.     
  412.     
  413.     *       ╓─────────────────────────────────────────────────────────╖
  414.     *       ║                                                         ║
  415.     *       ║             PRTSETUP/Macintosh Cleanup Code             ║
  416.     *       ║                                                         ║
  417.     *       ╙─────────────────────────────────────────────────────────╜
  418.     *
  419.     
  420.     #REGION 1
  421.     DO CASE
  422.     CASE okbut = 1
  423.        SET PRINTER TO
  424.     
  425.        IF prtstat = 1
  426.           SET PRINT ON
  427.        ELSE
  428.           SET PRINT OFF
  429.        ENDIF
  430.     
  431.        pdest = ALLTRIM(UPPER(pdest))
  432.        DO CASE
  433.        CASE pdest = 'FILE'
  434.           IF !EMPTY(pfilname)
  435.              SET PRINTER TO (pfilname)
  436.           ELSE
  437.              SET PRINTER TO
  438.           ENDIF
  439.        OTHERWISE
  440.           pfilname = ''
  441.           SET PRINTER TO &pdest
  442.        ENDCASE
  443.     CASE cancbut = 1
  444.        IF origprtstat = 1
  445.           SET PRINT ON
  446.        ELSE
  447.           SET PRINT OFF
  448.        ENDIF
  449.        pdest = origdest
  450.        pfilname = prt_infile
  451.     ENDCASE
  452.     skipvar = .F.
  453.     
  454.  
  455. CASE _WINDOWS
  456.  
  457.     
  458.     #REGION 0
  459.     REGIONAL m.currarea, m.talkstat, m.compstat
  460.     
  461.     IF SET("TALK") = "ON"
  462.         SET TALK OFF
  463.         m.talkstat = "ON"
  464.     ELSE
  465.         m.talkstat = "OFF"
  466.     ENDIF
  467.     m.compstat = SET("COMPATIBLE")
  468.     SET COMPATIBLE FOXPLUS
  469.     
  470.     m.rborder = SET("READBORDER")
  471.     SET READBORDER OFF
  472.     
  473.     *       ╓─────────────────────────────────────────────────────────╖
  474.     *       ║                                                         ║
  475.     *       ║               Windows Window definitions                ║
  476.     *       ║                                                         ║
  477.     *       ╙─────────────────────────────────────────────────────────╜
  478.     *
  479.     
  480.     IF NOT WEXIST("_qne1bxwbc")
  481.         DEFINE WINDOW _qne1bxwbc ;
  482.             AT  0.000, 0.000  ;
  483.             SIZE 17.000,57.000 ;
  484.             TITLE "Printing Destination" ;
  485.             FONT "MS Sans Serif", 8 ;
  486.             STYLE "B" ;
  487.             FLOAT ;
  488.             NOCLOSE ;
  489.             SHADOW ;
  490.             NOMINIMIZE ;
  491.             DOUBLE ;
  492.             COLOR RGB(,,,192,192,192)
  493.         MOVE WINDOW _qne1bxwbc CENTER
  494.     ENDIF
  495.     
  496.     
  497.     *       ╓─────────────────────────────────────────────────────────╖
  498.     *       ║                                                         ║
  499.     *       ║         PRTSETUP/Windows Setup Code - SECTION 2         ║
  500.     *       ║                                                         ║
  501.     *       ╙─────────────────────────────────────────────────────────╜
  502.     *
  503.     
  504.     #REGION 1
  505.     
  506.     skipvar = .T.
  507.     pfilname = SPACE(67)
  508.     
  509.     pdest = SET('PRINTER',1)
  510.     IF ":" $ pdest
  511.        pdest = LEFT(pdest,AT(':',pdest)-1)
  512.     ENDIF
  513.     IF !INLIST(pdest,'PRN','LPT1','LPT2','LPT3','COM1','COM2','COM3')
  514.        pfilname = PADR(pdest,67)
  515.        pdest = 'File'
  516.     ENDIF
  517.     origdest = pdest
  518.     prt_infile =pfilname
  519.     
  520.     IF SET('PRINT') = 'ON'
  521.        prtstat = 1
  522.     ELSE
  523.        prtstat = 2
  524.     ENDIF
  525.     origprtstat = prtstat
  526.     
  527.     pdrivstup = IIF(LEN(_PDRIVER)=0,0,1)
  528.     
  529.     
  530.     *       ╓─────────────────────────────────────────────────────────╖
  531.     *       ║                                                         ║
  532.     *       ║             PRTSETUP/Windows Screen Layout              ║
  533.     *       ║                                                         ║
  534.     *       ╙─────────────────────────────────────────────────────────╜
  535.     *
  536.     
  537.     #REGION 1
  538.     IF WVISIBLE("_qne1bxwbc")
  539.         ACTIVATE WINDOW _qne1bxwbc SAME
  540.     ELSE
  541.         ACTIVATE WINDOW _qne1bxwbc NOSHOW
  542.     ENDIF
  543.     @ 2.462,2.500 TO 16.154,40.667 ;
  544.         PEN 1, 8
  545.     @ 3.462,8.667 SAY "Print to:"  ;
  546.         FONT "MS Sans Serif", 8 ;
  547.         STYLE "B"
  548.     @ 1.000,3.000 SAY "Printer Setup:"  ;
  549.         FONT "MS Sans Serif", 8 ;
  550.         STYLE "B"
  551.     @ 3.231,17.833 GET pdest ;
  552.         PICTURE "@^ File;PRN;LPT1;LPT2;LPT3;COM1;COM2;COM3" ;
  553.         SIZE 1.538,19.800 ;
  554.         DEFAULT "LPT1" ;
  555.         FONT "MS Sans Serif", 8 ;
  556.         VALID _qne1bxwvo()
  557.     @ 5.615,4.000 GET flist ;
  558.         PICTURE "@*HN \<File..." ;
  559.         SIZE 1.538,11.000,1.000 ;
  560.         DEFAULT 1 ;
  561.         FONT "MS Sans Serif", 8 ;
  562.         STYLE "B" ;
  563.         VALID _qne1bxwy6()
  564.     @ 7.692,4.333 GET pfilname ;
  565.         SIZE 1.000,34.500 ;
  566.         DEFAULT " " ;
  567.         FONT "MS Sans Serif", 8 ;
  568.         STYLE "B" ;
  569.         PICTURE "@3S67" ;
  570.         VALID _qne1bxx6f()
  571.     @ 10.538,4.000 GET prtstat ;
  572.         PICTURE "@*RVN Print On;Print Off" ;
  573.         SIZE 1.308,12.333,0.000 ;
  574.         DEFAULT 2 ;
  575.         FONT "MS Sans Serif", 8 ;
  576.         STYLE "BT" ;
  577.         COLOR ,,,,,,,,RGB(,,,192,192,192),RGB(,,,192,192,192)
  578.     @ 10.692,35.167 GET _LMARGIN ;
  579.         SIZE 1.000,2.667 ;
  580.         DEFAULT " " ;
  581.         FONT "MS Sans Serif", 8 ;
  582.         STYLE "B" ;
  583.         PICTURE "@3 999" ;
  584.         VALID _qne1bxxci()
  585.     @ 12.154,35.167 GET _RMARGIN ;
  586.         SIZE 1.000,2.667 ;
  587.         DEFAULT " " ;
  588.         FONT "MS Sans Serif", 8 ;
  589.         STYLE "B" ;
  590.         PICTURE "@3 999" ;
  591.         VALID _qne1bxxgh()
  592.     @ 2.462,43.500 GET OKbut ;
  593.         PICTURE "@*HT \!OK" ;
  594.         SIZE 1.538,10.000,6.000 ;
  595.         DEFAULT 1 ;
  596.         FONT "MS Sans Serif", 8 ;
  597.         STYLE "B"
  598.     @ 4.769,43.500 GET CancBut ;
  599.         PICTURE "@*HT \?Cancel" ;
  600.         SIZE 1.538,10.000,1.000 ;
  601.         DEFAULT 1 ;
  602.         FONT "MS Sans Serif", 8 ;
  603.         STYLE "B"
  604.     @ 14.231,4.000 GET pdrivstup ;
  605.         PICTURE "@*C Printer \<Driver Setup..." ;
  606.         SIZE 1.308,26.333 ;
  607.         DEFAULT 0 ;
  608.         FONT "MS Sans Serif", 8 ;
  609.         STYLE "BT" ;
  610.         VALID _qne1bxxno() ;
  611.         DISABLE
  612.     @ 10.692,20.833 SAY "Left Margin:"  ;
  613.         FONT "MS Sans Serif", 8 ;
  614.         STYLE "B"
  615.     @ 12.154,20.833 SAY "Right Margin:"  ;
  616.         FONT "MS Sans Serif", 8 ;
  617.         STYLE "B"
  618.     
  619.     IF NOT WVISIBLE("_qne1bxwbc")
  620.         ACTIVATE WINDOW _qne1bxwbc
  621.     ENDIF
  622.     
  623.     
  624.     *       ╓─────────────────────────────────────────────────────────╖
  625.     *       ║                                                         ║
  626.     *       ║    WindowsREAD contains clauses from SCREEN prtsetup    ║
  627.     *       ║                                                         ║
  628.     *       ╙─────────────────────────────────────────────────────────╜
  629.     *
  630.     
  631.     READ CYCLE ;
  632.         DEACTIVATE _qne1bxxty() ;
  633.         SHOW _qne1bxxu1() ;
  634.         MODAL
  635.     
  636.     RELEASE WINDOW _qne1bxwbc
  637.     
  638.     #REGION 0
  639.     
  640.     SET READBORDER &rborder
  641.     
  642.     IF m.talkstat = "ON"
  643.         SET TALK ON
  644.     ENDIF
  645.     IF m.compstat = "ON"
  646.         SET COMPATIBLE ON
  647.     ENDIF
  648.     
  649.     
  650.     *       ╓─────────────────────────────────────────────────────────╖
  651.     *       ║                                                         ║
  652.     *       ║              PRTSETUP/Windows Cleanup Code              ║
  653.     *       ║                                                         ║
  654.     *       ╙─────────────────────────────────────────────────────────╜
  655.     *
  656.     
  657.     #REGION 1
  658.     DO CASE
  659.     CASE okbut = 1
  660.        SET PRINTER TO
  661.     
  662.        IF prtstat = 1
  663.           SET PRINT ON
  664.        ELSE
  665.           SET PRINT OFF
  666.        ENDIF
  667.     
  668.        pdest = ALLTRIM(UPPER(pdest))
  669.        DO CASE
  670.        CASE pdest = 'FILE'
  671.           IF !EMPTY(pfilname)
  672.              SET PRINTER TO (pfilname)
  673.           ELSE
  674.              SET PRINTER TO
  675.           ENDIF
  676.        OTHERWISE
  677.           pfilname = ''
  678.           SET PRINTER TO &pdest
  679.        ENDCASE
  680.     CASE cancbut = 1
  681.        IF origprtstat = 1
  682.           SET PRINT ON
  683.        ELSE
  684.           SET PRINT OFF
  685.        ENDIF
  686.        pdest = origdest
  687.        pfilname = prt_infile
  688.     ENDCASE
  689.     skipvar = .F.
  690.     
  691.  
  692. ENDCASE
  693.  
  694.  
  695. *       ╓─────────────────────────────────────────────────────────╖
  696. *       ║                                                         ║
  697. *       ║ _QNE1BXSCY           pdest VALID                        ║
  698. *       ║                                                         ║
  699. *       ║ Function Origin:                                        ║
  700. *       ║                                                         ║
  701. *       ║ From Platform:       MS-DOS                             ║
  702. *       ║ From Screen:         PRTSETUP,     Record Number:    5  ║
  703. *       ║ Variable:            pdest                              ║
  704. *       ║ Called By:           VALID Clause                       ║
  705. *       ║ Object Type:         Popup                              ║
  706. *       ║ Snippet Number:      1                                  ║
  707. *       ║                                                         ║
  708. *       ╙─────────────────────────────────────────────────────────╜
  709. *
  710. FUNCTION _qne1bxscy     &&  pdest VALID
  711. #REGION 1
  712. IF UPPER(pdest) = 'FILE'
  713.    _CUROBJ = 3
  714. ENDIF
  715. SHOW GETS
  716.  
  717.  
  718. *       ╓─────────────────────────────────────────────────────────╖
  719. *       ║                                                         ║
  720. *       ║ _QNE1BXSGG           flist VALID                        ║
  721. *       ║                                                         ║
  722. *       ║ Function Origin:                                        ║
  723. *       ║                                                         ║
  724. *       ║ From Platform:       MS-DOS                             ║
  725. *       ║ From Screen:         PRTSETUP,     Record Number:    6  ║
  726. *       ║ Variable:            flist                              ║
  727. *       ║ Called By:           VALID Clause                       ║
  728. *       ║ Object Type:         Push Button                        ║
  729. *       ║ Snippet Number:      2                                  ║
  730. *       ║                                                         ║
  731. *       ╙─────────────────────────────────────────────────────────╜
  732. *
  733. FUNCTION _qne1bxsgg     &&  flist VALID
  734. #REGION 1
  735. IF flist = 1
  736.    origfile = pfilname
  737.    pfilname = GETFILE('','Print to:')
  738.    IF EMPTY(pfilname)
  739.       pfilname = origfile
  740.    ENDIF
  741. ENDIF
  742. pfilname = UPPER(PADR(pfilname,67))
  743. IF !EMPTY(pfilname)
  744.    pdest = 'File'
  745. ENDIF
  746. SHOW GETS
  747.  
  748.  
  749. *       ╓─────────────────────────────────────────────────────────╖
  750. *       ║                                                         ║
  751. *       ║ _QNE1BXSOE           pfilname VALID                     ║
  752. *       ║                                                         ║
  753. *       ║ Function Origin:                                        ║
  754. *       ║                                                         ║
  755. *       ║ From Platform:       MS-DOS                             ║
  756. *       ║ From Screen:         PRTSETUP,     Record Number:    7  ║
  757. *       ║ Variable:            pfilname                           ║
  758. *       ║ Called By:           VALID Clause                       ║
  759. *       ║ Object Type:         Field                              ║
  760. *       ║ Snippet Number:      3                                  ║
  761. *       ║                                                         ║
  762. *       ╙─────────────────────────────────────────────────────────╜
  763. *
  764. FUNCTION _qne1bxsoe     &&  pfilname VALID
  765. #REGION 1
  766. pfilname = PADR(UPPER(LTRIM(pfilname)),67)
  767. IF !EMPTY(pfilname)
  768.    pdest = 'File'
  769. ENDIF
  770. SHOW GETS
  771.  
  772.  
  773. *       ╓─────────────────────────────────────────────────────────╖
  774. *       ║                                                         ║
  775. *       ║ _QNE1BXSTP           _LMARGIN VALID                     ║
  776. *       ║                                                         ║
  777. *       ║ Function Origin:                                        ║
  778. *       ║                                                         ║
  779. *       ║ From Platform:       MS-DOS                             ║
  780. *       ║ From Screen:         PRTSETUP,     Record Number:    9  ║
  781. *       ║ Variable:            _LMARGIN                           ║
  782. *       ║ Called By:           VALID Clause                       ║
  783. *       ║ Object Type:         Field                              ║
  784. *       ║ Snippet Number:      4                                  ║
  785. *       ║                                                         ║
  786. *       ╙─────────────────────────────────────────────────────────╜
  787. *
  788. FUNCTION _qne1bxstp     &&  _LMARGIN VALID
  789. #REGION 1
  790. _LMARGIN = MAX(0,_LMARGIN)
  791. SHOW GETS
  792.  
  793.  
  794. *       ╓─────────────────────────────────────────────────────────╖
  795. *       ║                                                         ║
  796. *       ║ _QNE1BXSXH           _RMARGIN VALID                     ║
  797. *       ║                                                         ║
  798. *       ║ Function Origin:                                        ║
  799. *       ║                                                         ║
  800. *       ║ From Platform:       MS-DOS                             ║
  801. *       ║ From Screen:         PRTSETUP,     Record Number:   10  ║
  802. *       ║ Variable:            _RMARGIN                           ║
  803. *       ║ Called By:           VALID Clause                       ║
  804. *       ║ Object Type:         Field                              ║
  805. *       ║ Snippet Number:      5                                  ║
  806. *       ║                                                         ║
  807. *       ╙─────────────────────────────────────────────────────────╜
  808. *
  809. FUNCTION _qne1bxsxh     &&  _RMARGIN VALID
  810. #REGION 1
  811. _RMARGIN = MIN(_RMARGIN,255)
  812. SHOW GETS
  813.  
  814.  
  815. *       ╓─────────────────────────────────────────────────────────╖
  816. *       ║                                                         ║
  817. *       ║ _QNE1BXT2A           pdrivstup VALID                    ║
  818. *       ║                                                         ║
  819. *       ║ Function Origin:                                        ║
  820. *       ║                                                         ║
  821. *       ║ From Platform:       MS-DOS                             ║
  822. *       ║ From Screen:         PRTSETUP,     Record Number:   13  ║
  823. *       ║ Variable:            pdrivstup                          ║
  824. *       ║ Called By:           VALID Clause                       ║
  825. *       ║ Object Type:         Check Box                          ║
  826. *       ║ Snippet Number:      6                                  ║
  827. *       ║                                                         ║
  828. *       ╙─────────────────────────────────────────────────────────╜
  829. *
  830. FUNCTION _qne1bxt2a     &&  pdrivstup VALID
  831. #REGION 1
  832. DO (_GENPD) WITH 1,"?"
  833. IF LEN(_PDSETUP) = 0
  834.    pdrivstup = 0
  835. ELSE
  836.    pdrivstup = 1
  837. ENDIF
  838. SHOW GET pdrivstup
  839.  
  840.  
  841. *       ╓─────────────────────────────────────────────────────────╖
  842. *       ║                                                         ║
  843. *       ║ _QNE1BXT8Z           Read Level Deactivate              ║
  844. *       ║                                                         ║
  845. *       ║ Function Origin:                                        ║
  846. *       ║                                                         ║
  847. *       ║                                                         ║
  848. *       ║ From Platform:       MS-DOS                             ║
  849. *       ║ From Screen:         PRTSETUP                           ║
  850. *       ║ Called By:           READ Statement                     ║
  851. *       ║ Snippet Number:      7                                  ║
  852. *       ║                                                         ║
  853. *       ╙─────────────────────────────────────────────────────────╜
  854. *
  855. FUNCTION _qne1bxt8z     && Read Level Deactivate
  856. *
  857. * Deactivate Code from screen: PRTSETUP
  858. *
  859. #REGION 1
  860. ?? CHR(7)
  861. RETURN .F.
  862.  
  863.  
  864. *       ╓─────────────────────────────────────────────────────────╖
  865. *       ║                                                         ║
  866. *       ║ _QNE1BXT90           Read Level Show                    ║
  867. *       ║                                                         ║
  868. *       ║ Function Origin:                                        ║
  869. *       ║                                                         ║
  870. *       ║                                                         ║
  871. *       ║ From Platform:       MS-DOS                             ║
  872. *       ║ From Screen:         PRTSETUP                           ║
  873. *       ║ Called By:           READ Statement                     ║
  874. *       ║ Snippet Number:      8                                  ║
  875. *       ║                                                         ║
  876. *       ╙─────────────────────────────────────────────────────────╜
  877. *
  878. FUNCTION _qne1bxt90     && Read Level Show
  879. PRIVATE currwind
  880. STORE WOUTPUT() TO currwind
  881. *
  882. * Show Code from screen: PRTSETUP
  883. *
  884. #REGION 1
  885. IF UPPER(pdest) = 'FILE'
  886.    SHOW GET pfilname ENABLE
  887.    IF EMPTY(pfilname)
  888.       SHOW GET okbut DISABLE
  889.    ELSE
  890.       SHOW GET okbut ENABLE
  891.    ENDIF
  892. ELSE
  893.    SHOW GET pfilname DISABLE
  894.    SHOW GET okbut ENABLE
  895. ENDIF
  896.  
  897. IF NOT EMPTY(currwind)
  898.     ACTIVATE WINDOW (currwind) SAME
  899. ENDIF
  900.  
  901. *       ╓─────────────────────────────────────────────────────────╖
  902. *       ║                                                         ║
  903. *       ║ _QNE1BXUNI           pdest VALID                        ║
  904. *       ║                                                         ║
  905. *       ║ Function Origin:                                        ║
  906. *       ║                                                         ║
  907. *       ║ From Platform:       Macintosh                          ║
  908. *       ║ From Screen:         PRTSETUP,     Record Number:   20  ║
  909. *       ║ Variable:            pdest                              ║
  910. *       ║ Called By:           VALID Clause                       ║
  911. *       ║ Object Type:         Popup                              ║
  912. *       ║ Snippet Number:      9                                  ║
  913. *       ║                                                         ║
  914. *       ╙─────────────────────────────────────────────────────────╜
  915. *
  916. FUNCTION _qne1bxuni     &&  pdest VALID
  917. #REGION 1
  918. IF UPPER(pdest) = 'FILE'
  919.    _CUROBJ = 3
  920. ENDIF
  921. SHOW GETS
  922.  
  923.  
  924. *       ╓─────────────────────────────────────────────────────────╖
  925. *       ║                                                         ║
  926. *       ║ _QNE1BXUT4           flist VALID                        ║
  927. *       ║                                                         ║
  928. *       ║ Function Origin:                                        ║
  929. *       ║                                                         ║
  930. *       ║ From Platform:       Macintosh                          ║
  931. *       ║ From Screen:         PRTSETUP,     Record Number:   21  ║
  932. *       ║ Variable:            flist                              ║
  933. *       ║ Called By:           VALID Clause                       ║
  934. *       ║ Object Type:         Push Button                        ║
  935. *       ║ Snippet Number:      10                                 ║
  936. *       ║                                                         ║
  937. *       ╙─────────────────────────────────────────────────────────╜
  938. *
  939. FUNCTION _qne1bxut4     &&  flist VALID
  940. #REGION 1
  941. IF flist = 1
  942.    origfile = pfilname
  943.    pfilname = GETFILE('','Print to:')
  944.    IF EMPTY(pfilname)
  945.       pfilname = origfile
  946.    ENDIF
  947. ENDIF
  948. pfilname = UPPER(PADR(pfilname,67))
  949. IF !EMPTY(pfilname)
  950.    pdest = 'File'
  951. ENDIF
  952. SHOW GETS
  953.  
  954.  
  955. *       ╓─────────────────────────────────────────────────────────╖
  956. *       ║                                                         ║
  957. *       ║ _QNE1BXUY4           pfilname VALID                     ║
  958. *       ║                                                         ║
  959. *       ║ Function Origin:                                        ║
  960. *       ║                                                         ║
  961. *       ║ From Platform:       Macintosh                          ║
  962. *       ║ From Screen:         PRTSETUP,     Record Number:   22  ║
  963. *       ║ Variable:            pfilname                           ║
  964. *       ║ Called By:           VALID Clause                       ║
  965. *       ║ Object Type:         Field                              ║
  966. *       ║ Snippet Number:      11                                 ║
  967. *       ║                                                         ║
  968. *       ╙─────────────────────────────────────────────────────────╜
  969. *
  970. FUNCTION _qne1bxuy4     &&  pfilname VALID
  971. #REGION 1
  972. pfilname = PADR(UPPER(LTRIM(pfilname)),67)
  973. IF !EMPTY(pfilname)
  974.    pdest = 'File'
  975. ENDIF
  976. SHOW GETS
  977.  
  978.  
  979. *       ╓─────────────────────────────────────────────────────────╖
  980. *       ║                                                         ║
  981. *       ║ _QNE1BXV59           _LMARGIN VALID                     ║
  982. *       ║                                                         ║
  983. *       ║ Function Origin:                                        ║
  984. *       ║                                                         ║
  985. *       ║ From Platform:       Macintosh                          ║
  986. *       ║ From Screen:         PRTSETUP,     Record Number:   24  ║
  987. *       ║ Variable:            _LMARGIN                           ║
  988. *       ║ Called By:           VALID Clause                       ║
  989. *       ║ Object Type:         Field                              ║
  990. *       ║ Snippet Number:      12                                 ║
  991. *       ║                                                         ║
  992. *       ╙─────────────────────────────────────────────────────────╜
  993. *
  994. FUNCTION _qne1bxv59     &&  _LMARGIN VALID
  995. #REGION 1
  996. _LMARGIN = MAX(0,_LMARGIN)
  997. SHOW GETS
  998.  
  999.  
  1000. *       ╓─────────────────────────────────────────────────────────╖
  1001. *       ║                                                         ║
  1002. *       ║ _QNE1BXV7E           _RMARGIN VALID                     ║
  1003. *       ║                                                         ║
  1004. *       ║ Function Origin:                                        ║
  1005. *       ║                                                         ║
  1006. *       ║ From Platform:       Macintosh                          ║
  1007. *       ║ From Screen:         PRTSETUP,     Record Number:   25  ║
  1008. *       ║ Variable:            _RMARGIN                           ║
  1009. *       ║ Called By:           VALID Clause                       ║
  1010. *       ║ Object Type:         Field                              ║
  1011. *       ║ Snippet Number:      13                                 ║
  1012. *       ║                                                         ║
  1013. *       ╙─────────────────────────────────────────────────────────╜
  1014. *
  1015. FUNCTION _qne1bxv7e     &&  _RMARGIN VALID
  1016. #REGION 1
  1017. _RMARGIN = MIN(_RMARGIN,255)
  1018. SHOW GETS
  1019.  
  1020.  
  1021. *       ╓─────────────────────────────────────────────────────────╖
  1022. *       ║                                                         ║
  1023. *       ║ _QNE1BXVEB           pdrivstup VALID                    ║
  1024. *       ║                                                         ║
  1025. *       ║ Function Origin:                                        ║
  1026. *       ║                                                         ║
  1027. *       ║ From Platform:       Macintosh                          ║
  1028. *       ║ From Screen:         PRTSETUP,     Record Number:   28  ║
  1029. *       ║ Variable:            pdrivstup                          ║
  1030. *       ║ Called By:           VALID Clause                       ║
  1031. *       ║ Object Type:         Check Box                          ║
  1032. *       ║ Snippet Number:      14                                 ║
  1033. *       ║                                                         ║
  1034. *       ╙─────────────────────────────────────────────────────────╜
  1035. *
  1036. FUNCTION _qne1bxveb     &&  pdrivstup VALID
  1037. #REGION 1
  1038. DO (_GENPD) WITH 1,"?"
  1039. IF LEN(_PDSETUP) = 0
  1040.    pdrivstup = 0
  1041. ELSE
  1042.    pdrivstup = 1
  1043. ENDIF
  1044. SHOW GET pdrivstup
  1045.  
  1046.  
  1047. *       ╓─────────────────────────────────────────────────────────╖
  1048. *       ║                                                         ║
  1049. *       ║ _QNE1BXVM1           Read Level Deactivate              ║
  1050. *       ║                                                         ║
  1051. *       ║ Function Origin:                                        ║
  1052. *       ║                                                         ║
  1053. *       ║                                                         ║
  1054. *       ║ From Platform:       Macintosh                          ║
  1055. *       ║ From Screen:         PRTSETUP                           ║
  1056. *       ║ Called By:           READ Statement                     ║
  1057. *       ║ Snippet Number:      15                                 ║
  1058. *       ║                                                         ║
  1059. *       ╙─────────────────────────────────────────────────────────╜
  1060. *
  1061. FUNCTION _qne1bxvm1     && Read Level Deactivate
  1062. *
  1063. * Deactivate Code from screen: PRTSETUP
  1064. *
  1065. #REGION 1
  1066. ?? CHR(7)
  1067. RETURN .F.
  1068.  
  1069.  
  1070. *       ╓─────────────────────────────────────────────────────────╖
  1071. *       ║                                                         ║
  1072. *       ║ _QNE1BXVM5           Read Level Show                    ║
  1073. *       ║                                                         ║
  1074. *       ║ Function Origin:                                        ║
  1075. *       ║                                                         ║
  1076. *       ║                                                         ║
  1077. *       ║ From Platform:       Macintosh                          ║
  1078. *       ║ From Screen:         PRTSETUP                           ║
  1079. *       ║ Called By:           READ Statement                     ║
  1080. *       ║ Snippet Number:      16                                 ║
  1081. *       ║                                                         ║
  1082. *       ╙─────────────────────────────────────────────────────────╜
  1083. *
  1084. FUNCTION _qne1bxvm5     && Read Level Show
  1085. PRIVATE currwind
  1086. STORE WOUTPUT() TO currwind
  1087. *
  1088. * Show Code from screen: PRTSETUP
  1089. *
  1090. #REGION 1
  1091. IF UPPER(pdest) = 'FILE'
  1092.    SHOW GET pfilname ENABLE
  1093.    IF EMPTY(pfilname)
  1094.       SHOW GET okbut DISABLE
  1095.    ELSE
  1096.       SHOW GET okbut ENABLE
  1097.    ENDIF
  1098. ELSE
  1099.    SHOW GET pfilname DISABLE
  1100.    SHOW GET okbut ENABLE
  1101. ENDIF
  1102.  
  1103. IF NOT EMPTY(currwind)
  1104.     ACTIVATE WINDOW (currwind) SAME
  1105. ENDIF
  1106.  
  1107. *       ╓─────────────────────────────────────────────────────────╖
  1108. *       ║                                                         ║
  1109. *       ║ _QNE1BXWVO           pdest VALID                        ║
  1110. *       ║                                                         ║
  1111. *       ║ Function Origin:                                        ║
  1112. *       ║                                                         ║
  1113. *       ║ From Platform:       Windows                            ║
  1114. *       ║ From Screen:         PRTSETUP,     Record Number:   37  ║
  1115. *       ║ Variable:            pdest                              ║
  1116. *       ║ Called By:           VALID Clause                       ║
  1117. *       ║ Object Type:         Popup                              ║
  1118. *       ║ Snippet Number:      17                                 ║
  1119. *       ║                                                         ║
  1120. *       ╙─────────────────────────────────────────────────────────╜
  1121. *
  1122. FUNCTION _qne1bxwvo     &&  pdest VALID
  1123. #REGION 1
  1124. IF UPPER(pdest) = 'FILE'
  1125.    _CUROBJ = 3
  1126. ENDIF
  1127. SHOW GETS
  1128.  
  1129.  
  1130. *       ╓─────────────────────────────────────────────────────────╖
  1131. *       ║                                                         ║
  1132. *       ║ _QNE1BXWY6           flist VALID                        ║
  1133. *       ║                                                         ║
  1134. *       ║ Function Origin:                                        ║
  1135. *       ║                                                         ║
  1136. *       ║ From Platform:       Windows                            ║
  1137. *       ║ From Screen:         PRTSETUP,     Record Number:   38  ║
  1138. *       ║ Variable:            flist                              ║
  1139. *       ║ Called By:           VALID Clause                       ║
  1140. *       ║ Object Type:         Push Button                        ║
  1141. *       ║ Snippet Number:      18                                 ║
  1142. *       ║                                                         ║
  1143. *       ╙─────────────────────────────────────────────────────────╜
  1144. *
  1145. FUNCTION _qne1bxwy6     &&  flist VALID
  1146. #REGION 1
  1147. IF flist = 1
  1148.    origfile = pfilname
  1149.    pfilname = GETFILE('','Print to:')
  1150.    IF EMPTY(pfilname)
  1151.       pfilname = origfile
  1152.    ENDIF
  1153. ENDIF
  1154. pfilname = UPPER(PADR(pfilname,67))
  1155. IF !EMPTY(pfilname)
  1156.    pdest = 'File'
  1157. ENDIF
  1158. SHOW GETS
  1159.  
  1160.  
  1161. *       ╓─────────────────────────────────────────────────────────╖
  1162. *       ║                                                         ║
  1163. *       ║ _QNE1BXX6F           pfilname VALID                     ║
  1164. *       ║                                                         ║
  1165. *       ║ Function Origin:                                        ║
  1166. *       ║                                                         ║
  1167. *       ║ From Platform:       Windows                            ║
  1168. *       ║ From Screen:         PRTSETUP,     Record Number:   39  ║
  1169. *       ║ Variable:            pfilname                           ║
  1170. *       ║ Called By:           VALID Clause                       ║
  1171. *       ║ Object Type:         Field                              ║
  1172. *       ║ Snippet Number:      19                                 ║
  1173. *       ║                                                         ║
  1174. *       ╙─────────────────────────────────────────────────────────╜
  1175. *
  1176. FUNCTION _qne1bxx6f     &&  pfilname VALID
  1177. #REGION 1
  1178. pfilname = PADR(UPPER(LTRIM(pfilname)),67)
  1179. IF !EMPTY(pfilname)
  1180.    pdest = 'File'
  1181. ENDIF
  1182. SHOW GETS
  1183.  
  1184.  
  1185. *       ╓─────────────────────────────────────────────────────────╖
  1186. *       ║                                                         ║
  1187. *       ║ _QNE1BXXCI           _LMARGIN VALID                     ║
  1188. *       ║                                                         ║
  1189. *       ║ Function Origin:                                        ║
  1190. *       ║                                                         ║
  1191. *       ║ From Platform:       Windows                            ║
  1192. *       ║ From Screen:         PRTSETUP,     Record Number:   41  ║
  1193. *       ║ Variable:            _LMARGIN                           ║
  1194. *       ║ Called By:           VALID Clause                       ║
  1195. *       ║ Object Type:         Field                              ║
  1196. *       ║ Snippet Number:      20                                 ║
  1197. *       ║                                                         ║
  1198. *       ╙─────────────────────────────────────────────────────────╜
  1199. *
  1200. FUNCTION _qne1bxxci     &&  _LMARGIN VALID
  1201. #REGION 1
  1202. _LMARGIN = MAX(0,_LMARGIN)
  1203. SHOW GETS
  1204.  
  1205.  
  1206. *       ╓─────────────────────────────────────────────────────────╖
  1207. *       ║                                                         ║
  1208. *       ║ _QNE1BXXGH           _RMARGIN VALID                     ║
  1209. *       ║                                                         ║
  1210. *       ║ Function Origin:                                        ║
  1211. *       ║                                                         ║
  1212. *       ║ From Platform:       Windows                            ║
  1213. *       ║ From Screen:         PRTSETUP,     Record Number:   42  ║
  1214. *       ║ Variable:            _RMARGIN                           ║
  1215. *       ║ Called By:           VALID Clause                       ║
  1216. *       ║ Object Type:         Field                              ║
  1217. *       ║ Snippet Number:      21                                 ║
  1218. *       ║                                                         ║
  1219. *       ╙─────────────────────────────────────────────────────────╜
  1220. *
  1221. FUNCTION _qne1bxxgh     &&  _RMARGIN VALID
  1222. #REGION 1
  1223. _RMARGIN = MIN(_RMARGIN,255)
  1224. SHOW GETS
  1225.  
  1226.  
  1227. *       ╓─────────────────────────────────────────────────────────╖
  1228. *       ║                                                         ║
  1229. *       ║ _QNE1BXXNO           pdrivstup VALID                    ║
  1230. *       ║                                                         ║
  1231. *       ║ Function Origin:                                        ║
  1232. *       ║                                                         ║
  1233. *       ║ From Platform:       Windows                            ║
  1234. *       ║ From Screen:         PRTSETUP,     Record Number:   45  ║
  1235. *       ║ Variable:            pdrivstup                          ║
  1236. *       ║ Called By:           VALID Clause                       ║
  1237. *       ║ Object Type:         Check Box                          ║
  1238. *       ║ Snippet Number:      22                                 ║
  1239. *       ║                                                         ║
  1240. *       ╙─────────────────────────────────────────────────────────╜
  1241. *
  1242. FUNCTION _qne1bxxno     &&  pdrivstup VALID
  1243. #REGION 1
  1244. DO (_GENPD) WITH 1,"?"
  1245. IF LEN(_PDSETUP) = 0
  1246.    pdrivstup = 0
  1247. ELSE
  1248.    pdrivstup = 1
  1249. ENDIF
  1250. SHOW GET pdrivstup
  1251.  
  1252.  
  1253. *       ╓─────────────────────────────────────────────────────────╖
  1254. *       ║                                                         ║
  1255. *       ║ _QNE1BXXTY           Read Level Deactivate              ║
  1256. *       ║                                                         ║
  1257. *       ║ Function Origin:                                        ║
  1258. *       ║                                                         ║
  1259. *       ║                                                         ║
  1260. *       ║ From Platform:       Windows                            ║
  1261. *       ║ From Screen:         PRTSETUP                           ║
  1262. *       ║ Called By:           READ Statement                     ║
  1263. *       ║ Snippet Number:      23                                 ║
  1264. *       ║                                                         ║
  1265. *       ╙─────────────────────────────────────────────────────────╜
  1266. *
  1267. FUNCTION _qne1bxxty     && Read Level Deactivate
  1268. *
  1269. * Deactivate Code from screen: PRTSETUP
  1270. *
  1271. #REGION 1
  1272. ?? CHR(7)
  1273. RETURN .F.
  1274.  
  1275.  
  1276. *       ╓─────────────────────────────────────────────────────────╖
  1277. *       ║                                                         ║
  1278. *       ║ _QNE1BXXU1           Read Level Show                    ║
  1279. *       ║                                                         ║
  1280. *       ║ Function Origin:                                        ║
  1281. *       ║                                                         ║
  1282. *       ║                                                         ║
  1283. *       ║ From Platform:       Windows                            ║
  1284. *       ║ From Screen:         PRTSETUP                           ║
  1285. *       ║ Called By:           READ Statement                     ║
  1286. *       ║ Snippet Number:      24                                 ║
  1287. *       ║                                                         ║
  1288. *       ╙─────────────────────────────────────────────────────────╜
  1289. *
  1290. FUNCTION _qne1bxxu1     && Read Level Show
  1291. PRIVATE currwind
  1292. STORE WOUTPUT() TO currwind
  1293. *
  1294. * Show Code from screen: PRTSETUP
  1295. *
  1296. #REGION 1
  1297. IF UPPER(pdest) = 'FILE'
  1298.    SHOW GET pfilname ENABLE
  1299.    IF EMPTY(pfilname)
  1300.       SHOW GET okbut DISABLE
  1301.    ELSE
  1302.       SHOW GET okbut ENABLE
  1303.    ENDIF
  1304. ELSE
  1305.    SHOW GET pfilname DISABLE
  1306.    SHOW GET okbut ENABLE
  1307. ENDIF
  1308.  
  1309. IF NOT EMPTY(currwind)
  1310.     ACTIVATE WINDOW (currwind) SAME
  1311. ENDIF